home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / cli / mx2src.arc / COM.MOD < prev    next >
Text File  |  1989-01-05  |  2KB  |  65 lines
  1.  
  2. (*              Copyright 1987 fred brooks LogicTek             *)
  3. (*                                                              *)
  4. (*                                                              *)
  5. (*   First Release                      12/8/87-FGB             *)
  6. (*                                                              *)
  7.  
  8. MODULE  com;
  9. FROM    XBIOS   IMPORT  ConfigureRS232,SerialSpeed,FlowFlavor;
  10. FROM    BIOS    IMPORT  BConStat,BCosStat,BConIn,BConOut,Device;
  11. FROM    GEMX    IMPORT  BasePageAddress;
  12. FROM    GEMDOS  IMPORT  OldTerm;
  13. VAR     longchar        :       LONGCARD;
  14.         t               :       BITSET;
  15.         char            :       CHAR;
  16.         port            :       Device;
  17. BEGIN
  18.         char:=BasePageAddress^.CmdLine[1];
  19.         IF (char='m') OR (char='M') THEN
  20.            port:=HSS;
  21.         ELSE
  22.            port:=AUX;
  23.         END;
  24.         IF port=AUX THEN
  25.            IF (char=0c) THEN
  26.               ConfigureRS232(BPS1200,NONE,-1,-1,-1,-1); 
  27.            END; 
  28.            IF (char='0') THEN
  29.               ConfigureRS232(BPS300,NONE,-1,-1,-1,-1); 
  30.            END; 
  31.            IF (char='1') THEN
  32.               ConfigureRS232(BPS1200,NONE,-1,-1,-1,-1); 
  33.            END; 
  34.            IF (char='2') THEN
  35.               ConfigureRS232(BPS2400,NONE,-1,-1,-1,-1); 
  36.            END; 
  37.            IF (char='4') THEN
  38.               ConfigureRS232(BPS4800,NONE,-1,-1,-1,-1); 
  39.            END; 
  40.            IF (char='9') THEN
  41.               ConfigureRS232(BPS9600,NONE,-1,-1,-1,-1); 
  42.            END; 
  43.            IF (char='h') OR (char='H') THEN
  44.               ConfigureRS232(BPS19200,NONE,-1,-1,-1,-1); 
  45.            END; 
  46.         END;
  47.         LOOP
  48.                 IF BConStat(CON) THEN (* read keyboard *)
  49.                    longchar:=BConIn(CON);
  50.                    IF (longchar DIV 65536) = 61H THEN EXIT END;
  51.                    char:=CHAR(longchar); 
  52.                    BConOut(port,char);
  53.                 END;
  54.  
  55.                 IF BConStat(port) THEN (* read com port *)
  56.                    longchar:=BConIn(port);
  57.                    t:=BITSET(longchar);
  58.                    EXCL(t,7);
  59.                    char:=CHAR(t); 
  60.                    BConOut(CON,char);
  61.                 END;
  62.         END;
  63.         OldTerm;
  64. END     com.
  65.